home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / comms / other / ftransapiv1.3 / arexx / ftransfinalwriter.rexx < prev    next >
OS/2 REXX Batch file  |  1999-11-30  |  3KB  |  109 lines
  1. /* 
  2.  
  3.  ---------------------------------------------
  4.  FinalWriter Translator By FTranslator Client
  5.  
  6.  Script by Cristian Robert Gallas
  7.  
  8.  Tested with Final Writer 97
  9.  Usage:                                
  10.  Use in ARexx interface of FinalWriter
  11.  $VER: FTransFINALWRITER.rexx v1.0 (25.09.96)
  12.  ---------------------------------------------
  13.  
  14.  HISTORY
  15.  ----------------------------------------
  16.  v0.01b [16.08.98] - First public beta version.
  17.  v1.0   [25.09.99] - Modified to FTrans 1.2 API;
  18.  ----------------------------------------
  19.  
  20.  [Steps installation]
  21.  
  22.  > Copy FTransFINALWRITER.rexx to FinalWriter:FWMacros/
  23.  > Go to User/Other/Preferences
  24.  > Click NEW
  25.  > Menu Item Name Portuguese->English (This is a example)
  26.  > Command Type, select ARexx Script
  27.  > Click in Select and selection FTransFINALWRITER.rexx
  28.  > PUT IN AREXX SOURCE CODE, LINE 50 NUMBER OF TRANSLATION DIRECTION
  29.    ITS NEEDED BECAUSE FINALWRITER AREXX INTERFACE IS LIMITED
  30.  > If like select shortcut and menu position
  31.  > Now Save
  32.  > Select text and click on User/Portuguese->English
  33.  > Its open new window with translation... :)
  34.  
  35.  0 - English   to Francais
  36.  1 - English   to Deutsch
  37.  2 - English   to Italiano
  38.  3 - English   to Portugues
  39.  4 - English   to Espanol
  40.  5 - Francais  to English
  41.  6 - Deutsch   to English
  42.  7 - Italiano  to English
  43.  8 - Espanol   to English
  44.  9 - Portugues to English
  45.  
  46. */
  47.  
  48. Options Results
  49.  
  50. tmpfile = 'Ram:FTransTmp.FINALWRITER'
  51. tmpclip = 'Ram:FTransFinalWriter.Clip'
  52.  
  53. /* TRADUZ = TRANSLATION DIRECTION */
  54. /* EXAMPLE  TRADUZ = "3"          */
  55. /*++++++++++++++++++++++++++++++++*/
  56. traduz = ""
  57. /*++++++++++++++++++++++++++++++++*/
  58.  
  59. /* TESTA SE A DIRECAO DA TRADUCAO FOI INFORMADA */
  60. if traduz = "" then do
  61.   SHOWMESSAGE 1 1 '"PUT IN FTransFINALWRITER.rexx SCRIPT LINE 50, TRANSLATION DIRECTION..." "" "" "Ok" "" ""'
  62.   exit
  63. end
  64.  
  65. /* TESTA SE PODE SER USADAS AS LIBS DO AREXX */
  66. if ~show(l, "rexxsupport.library") then
  67.   if ~addlib("rexxsupport.library", 0, -30) then
  68.     exit
  69. if ~show(l, "rexxtricks.library") then
  70.   if ~addlib("rexxtricks.library", 0, -30) then
  71.     exit
  72.  
  73. /* TESTA SE O PROGRAMA JA NAO ESTA COM A PORTA DE TRADUCAO ABERTA */
  74. if exists(tmpfile) then do
  75.   SHOWMESSAGE 1 1 '"FTranslation port is open! Translation in progress, wait..." "" "" "Ok" "" ""'
  76.   exit
  77. end
  78.  
  79. COPY
  80.  
  81. /* PEGA O CONTEUDO DO CLIPBOARD */
  82. sel = ReadClipboard(0)
  83.  
  84. /* TESTA SE FOI SELECIONADO O TEXTO */
  85. if sel = "" then do
  86.   SHOWMESSAGE 1 1 '"You need select text first..." "" "" "Ok" "" ""'
  87.   exit
  88. end
  89.  
  90. call open(1, tmpclip, 'W')
  91. call writeln(1, sel)
  92. call close(1)
  93.  
  94. /* COLOCA COMO DEFAULT PORTUGUES TO ENGLISH */
  95. if traduz = "" then
  96.   traduz = 3
  97.  
  98. /* EXECUTA O FTRANSLATOR COM OS ARGUMENTOS DA TRADUCAO */
  99. comando = 'C:FTranslator -F "'tmpclip'" -D 'traduz' SILENCE > 'tmpfile
  100. Address Command comando
  101. Address Command 'Delete "'tmpclip'"'
  102.  
  103. OPEN tmpfile
  104.  
  105. Address Command 'Delete "'tmpfile'"'
  106.  
  107. exit
  108.  
  109.